home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 2 / PC World Interactive 2 - Eylül 1997.iso / shar / ofis / allma.exe / OPENDOCS.SMM < prev    next >
Encoding:
INI File  |  1994-11-27  |  4.6 KB  |  377 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     Select multiple docs to open
  28.     Lotus WPD Technical Support
  29.     Intermediate
  30.     DialogBox, FileOpen
  31.     autorun
  32.     786002378
  33.     31
  34.     673204697
  35.     217
  36.     2
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     Peyton McManus
  44.     
  45.     
  46.     
  47.     0
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [lay]
  65.     Standard
  66.     513
  67.     [rght]
  68.         15840
  69.         12240
  70.         1
  71.         1440
  72.         1440
  73.         1
  74.         1440
  75.         1440
  76.         2
  77.         1
  78.         0
  79.         1
  80.         1
  81.         2
  82.         1
  83.         1440
  84.         10800
  85.         5
  86.         1
  87.         720
  88.         1
  89.         1440
  90.         1
  91.         2880
  92.         1
  93.         4320
  94.         1
  95.         5760
  96.     [hrght]
  97.     [lyfrm]
  98.         1
  99.         11200
  100.         0
  101.         0
  102.         12240
  103.         1440
  104.         0
  105.         1
  106.         3
  107.         1 0 0 0 0 0 0
  108.         0
  109.         0
  110.         1
  111.     [frmlay]
  112.         1440
  113.         12240
  114.         1
  115.         1440
  116.         72
  117.         1
  118.         360
  119.         1440
  120.         0
  121.         1
  122.         0
  123.         1
  124.         1
  125.         0
  126.         1
  127.         1440
  128.         10800
  129.         0
  130.     [txt]
  131. <+B>MDIOPEN.SMM
  132.  
  133. <+B>Peyton McManus Lous WPD
  134.  
  135. <+B>Last revised June 3, 1991
  136.  
  137. >
  138.     [frght]
  139.     [lyfrm]
  140.         1
  141.         13248
  142.         0
  143.         14400
  144.         12240
  145.         15840
  146.         0
  147.         1
  148.         3
  149.         1 0 0 0 0 0 0
  150.         0
  151.         0
  152.         2
  153.     [frmlay]
  154.         15840
  155.         12240
  156.         1
  157.         1440
  158.         360
  159.         1
  160.         14472
  161.         1440
  162.         0
  163.         1
  164.         0
  165.         1
  166.         1
  167.         0
  168.         1
  169.         1440
  170.         10800
  171.         0
  172.     [txt]
  173. >
  174. [elay]
  175. [l1]
  176.     0
  177. [pg]
  178.     2
  179.     42 26 25 32 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  180.     51 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  181. [edoc]
  182. <:#276,9360>Function Multiple()
  183.  
  184. <:#276,9360>IF IsNewWave()
  185.  
  186. <:#276,9360>    Message("Macro not available while running under HP NewWave.")
  187.  
  188. <:#276,9360>    Exit Function
  189.  
  190. <:#276,9360>ENDIF
  191.  
  192. <:#276,9360>doc=getdocpath$()
  193.  
  194. <:#276,9360>Filledit(9001,"{doc}*.s?m")
  195.  
  196. <:#276,9360>Filledit(51,true)
  197.  
  198. <:#276,9360>Box=dialogbox(".","Getfiles")
  199.  
  200. <:#276,9360>if Box<<<;>1
  201.  
  202. <:#276,9360>    Exit Function
  203.  
  204. <:#276,9360>Endif
  205.  
  206. <:#276,9360>Files=getdialogfield$(8001)
  207.  
  208. <:#276,9360>Radio1=getdialogfield$(51)
  209.  
  210. <:#276,9360>Radio2=Getdialogfield$(52)
  211.  
  212. <:#276,9360>x=1
  213.  
  214. <:#276,9360>dir=getcurrentdir$()
  215.  
  216. <:#276,9360>While (1)
  217.  
  218. <:#276,9360>    Temp=Strfield$(files,x," ")
  219.  
  220. <:#276,9360>    if len(Temp)<;>3
  221.  
  222. <:#276,9360>        temp="{dir}{temp}"
  223.  
  224. <:#276,9360>        Fileopen("{temp}",1,"AmiPro")
  225.  
  226. <:#276,9360>        pause(002)
  227.  
  228. <:#276,9360>            If (Radio2)
  229.  
  230. <:#276,9360>            Appminimize("{temp}")
  231.  
  232. <:#276,9360>            Endif
  233.  
  234. <:#276,9360>        x=x+1
  235.  
  236. <:#276,9360>        if x<;>8
  237.  
  238. <:#276,9360>            Break
  239.  
  240. <:#276,9360>        Endif
  241.  
  242. <:#276,9360>    Else
  243.  
  244. <:#276,9360>        Break
  245.  
  246. <:#276,9360>    Endif
  247.  
  248. <:#276,9360>Wend
  249.  
  250. <:#276,9360>Darkmode(off)
  251.  
  252. <:#276,9360>End Function
  253.  
  254. <:#276,9360>
  255.  
  256. DIALOG    Getfiles
  257.  
  258. -2134376448    10    69    34    150    174    ""    ""    "Multiple File Open"
  259.  
  260. FONT    8    "Helv"
  261.  
  262. 11    21    62    120    9001    1352728587    "listbox"    ""    0 
  263.  
  264. 88    71    48    12    51    1342308361    "button"    "Full screen"    0 
  265.  
  266. <:#552,9360>88    84    50    12    52    1342177289    "button"    "Minimize all"    0 
  267.  
  268. <:#552,9360>6    2    62    18    1000    1342177280    "static"    "Select up to 9 files to open:"    0 
  269.  
  270. <:#552,9360>74    42    66    1    7999    1342177280    "static"    ""    0 
  271.  
  272. <:#552,9360>98    10    40    14    1    1342373889    "button"    "OK"    0 
  273.  
  274. <:#552,9360>98    29    40    14    2    1342373888    "button"    "Cancel"    0 
  275.  
  276. <:#552,9360>9    141    132    24    8001    1342177280    "static"    ""    0 
  277.  
  278. <:#552,9360>4    132    143    37    20    1342308359    "button"    ""    0 
  279.  
  280. <:#552,9360>0    1    150    173    1003    1342177287    "static"    ""    0 
  281.  
  282. <:#276,9360>END DIALOG
  283.  
  284. >
  285.  
  286. [Embedded]
  287. 00003460
  288. >
  289. [macsum] 2
  290. Multiple 0 0 9 0
  291. Getfiles 608 0 -1 37
  292. [macse]
  293. 14 Multiple
  294. 0 1317
  295. 13
  296. 11 00000109
  297. 0 3 "Macro not available while running under HP NewWave."
  298. 6 0
  299. 15
  300. 9
  301. 0 268
  302. 13
  303. 8 1
  304. 0 31 9001 "{1}*.s?m"
  305. 0 31 51 1
  306. 0 26 "." "Getfiles"
  307. 13
  308. 8 2
  309. 6 2
  310. 5 1
  311. 18 1
  312. 11 00000229
  313. 6 0
  314. 15
  315. 9
  316. 0 27 8001
  317. 13
  318. 8 3
  319. 0 27 51
  320. 13
  321. 8 4
  322. 0 27 52
  323. 13
  324. 8 5
  325. 5 1
  326. 8 6
  327. 0 290
  328. 13
  329. 8 7
  330. 5 1
  331. 11 00000587
  332. 0 20 "{3}" "{6}" " "
  333. 13
  334. 8 8
  335. 0 14 "{8}"
  336. 13
  337. 5 3
  338. 18 3
  339. 11 00000561
  340. 7 "{7}{8}"
  341. 8 8
  342. 2 102 1 "{8}" 1 "AmiPro"
  343. 0 274 002
  344. 6 5
  345. 11 00000486
  346. 0 1030 "{8}"
  347. 6 6
  348. 5 1
  349. 3 0
  350. 8 6
  351. 6 6
  352. 5 8
  353. 18 3
  354. 11 00000548
  355. 10 00000587
  356. 10 00000574
  357. 10 00000587
  358. 10 00000311
  359. 0 292 0
  360. 6 0
  361. 15
  362. 9
  363. DIALOG Getfiles
  364. -2134376448 10 69 34 150 174 "" "" "Multiple File Open" 
  365. FONT 8 "Helv" 
  366. 11 21 62 120 9001 1352728587 "listbox" "" 0 
  367. 88 71 48 12 51 1342308361 "button" "Full screen" 0 
  368. 88 84 50 12 52 1342177289 "button" "Minimize all" 0 
  369. 6 2 62 18 1000 1342177280 "static" "Select up to 9 files to open:" 0 
  370. 74 42 66 1 7999 1342177280 "static" "" 0 
  371. 98 10 40 14 1 1342373889 "button" "OK" 0 
  372. 98 29 40 14 2 1342373888 "button" "Cancel" 0 
  373. 9 141 132 24 8001 1342177280 "static" "" 0 
  374. 4 132 143 37 20 1342308359 "button" "" 0 
  375. 0 1 150 173 1003 1342177287 "static" "" 0 
  376. 00003485
  377.